home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / source / lib / ng-japanese.g < prev    next >
Text File  |  1993-01-07  |  2KB  |  63 lines
  1. ;;; Japanese place name generator.
  2.  
  3. ;;;  ng-japanese  v. 0.3  10/27/92
  4. ;;;  M. Campostrini (campo@sunthpi3.difi.unipi.it)
  5. ;;;
  6. ;;; Japanese place name generator.
  7. ;;;
  8. ;;; From 160 town names
  9. ;;; Some spelling conversions: pp->h, kk->k, tt->t.
  10. ;;; Tried to single out common endings with a definite meaning
  11. ;;;    (e.g. shima = island, yama = beach).  Needs confirmation!
  12. ;;; Short/long vowel distinction missing.
  13. ;;; A few losers still find their way in.
  14. ;;;
  15.  
  16. (namer japanese-place-names (grammar root 10
  17.   (root (or 41 (starter ender)
  18.         77 (starter middle ender)
  19.         34 (starter middle middle ender)
  20.          2 (starter middle middle middle ender)
  21.          )
  22.     )
  23.   (starter (or 12 a ban be 2 chi cho chu da 7 fu 8 ga ge gi
  24.            5 ha 5 hi 6 i jo 7 ka 2 ki 7 ko 7 ku kyo
  25.            3 ma 5 mi mo mu myo 5 na 3 ni no nu 11 o ri 
  26.            4 sa sen 7 shi sho su 6 ta 9 to 2 u 4 wa 4 ya 6 yo zu)
  27.        )
  28.   (middle (or 3 ba be bi 2 bu 3 chi da do e 3 go gu 2 ha 3 hi ho 7 i 2 ji
  29.           10 ka ke 2 ki 6 ko 8 ku 9 ma me 3 mi 6 mo 3 na ne 5 no nu
  30.           2 o 7 ra re 3 ri 3 ro 3 ru 4 sa 2 se 3 su 5 shi ta te 3 tsu 
  31.           4 wa 2 ya 2 yo 2 zu)
  32.       )
  33.   (ender (or ba be bo bu 5 chi chu da 2 dai 2 do 2 fu 2 ga gi go 
  34.          2 hama he hu 2 ji 2 jima 2 ka kan 3 kawa keo 2 ki 3 ko kui kyo 
  35.          2 ma 2 mai 4 matsu me 3 mi nai nan nawa 2 ne 3 no 3 oka 
  36.          4 ra ran re 5 ri 4 ro saki sawa 2 seki sen 4 shi 10 shima shin
  37.          2 so 7 ta te 6 to 3 tsu tsue wa wara 2 ya 11 yama zawa 6 zu)
  38.      )
  39.   )
  40. )
  41.  
  42. #|
  43. ;;; Weights on consonants come from simple-minded (I looked in the atlas)
  44. ;;; histogramming of names.
  45.  
  46. (namer japanese-place-names (grammar root 9
  47.   (root (or 1 (maybe-vowel last-syllable)
  48.         20 (maybe-vowel syllable last-syllable)
  49.         50 (maybe-vowel syllable syllable last-syllable)
  50.         50 (syllable syllable syllable last-syllable)))
  51.   (maybe-vowel (or 90 "" 10 vowel))
  52.   (syllable (consonant vowel))
  53.   (last-syllable (or 95 (consonant vowel)
  54.         5 (consonant vowel "n")))
  55.   (vowel (or 5 a 2 e 3 i 3 o 1 u))
  56.   (consonant (or 3 b 3 ch 1 d 3 f 11 g 6 h 2 j 25 k 16 m
  57.          10 n 7 r 14 s 2 sh 17 t 2 ts 6 w 5 y 3 z))
  58. ))
  59.  
  60. ;;; Actually, should use the actual syllables - although this list
  61. ;;; is weighted to favor real ones, some losers find their way in.
  62. |#
  63.